﻿Imports Feed.Base
Namespace Storage
    Public Class FeedItem
        Implements IBaseItem
        Private AuthorV, ContentV, FeedNameV, LinkV, SubjectV As String
        Private CategoriesV As String()
        Dim CatV, GuidV As String
        Private pubDateV As DateTime
        Public Property Author() As String
            Get
                Return AuthorV
            End Get
            Set(ByVal value As String)
                AuthorV = value
            End Set
        End Property
        Public Property Categories() As String()
            Get
                Return CategoriesV
            End Get
            Set(ByVal value As String())
                CategoriesV = value
            End Set
        End Property
        Public Property Content() As String
            Get
                Return ContentV
            End Get
            Set(ByVal value As String)
                ContentV = value
            End Set
        End Property
        Public Property pubDate() As DateTime
            Get
                Return pubDateV
            End Get
            Set(ByVal value As DateTime)
                pubDateV = value
            End Set
        End Property
        Public Property subject() As String
            Get
                Return SubjectV
            End Get
            Set(ByVal value As String)
                SubjectV = value
            End Set
        End Property
        Private FeedNV, FeedLiV, TitleV As String
        Public Property FeedName() As String Implements IBaseItem.FeedName
            Get
                Return FeedNV
            End Get
            Set(ByVal value As String)
                FeedNV = value
            End Set
        End Property
        Public Property Link() As String Implements IBaseItem.Link
            Get
                Return FeedLiV
            End Get
            Set(ByVal value As String)
                FeedLiV = value
            End Set
        End Property
        Public Property Title() As String Implements IBaseItem.Title
            Get
                Return TitleV
            End Get
            Set(ByVal value As String)
                TitleV = value
            End Set
        End Property
        Property FeedCategory() As String Implements Base.IBaseItem.Category
            Get
                Return CatV
            End Get
            Set(ByVal value As String)
                CatV = value
            End Set
        End Property
        Property Guid() As String Implements Base.IBaseItem.Guid
            Get
                Return GuidV
            End Get
            Set(ByVal value As String)
                GuidV = value
            End Set
        End Property
    End Class
End Namespace
